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**F ILE**1D**MONDEF 
MM MM 000000 NN NN DDDDDDDD EEEEEEEEEE FFFFFFFFFF 
MM MM 000 NN NN DDDDDDDD EEEEEEEEEE FFFFFFFFFF 
MMMM MMMM 600 00 NN NN DD D EE FF 
MMMM MMMM 600 00 NN NN DD DD EE FF 
MM 66MM 6MM «(O00 00 NNNN NN DD DD EE FF 
MM 66MM 6MM «(OO 00 NNNN NN DD DD EE FF 
MM MM 600 00 NN NN NN DD DD EEEEEEEE FFFFFFFF 
MM MM 600 00 NN NN NN DD DD EEEEEEEE FRFFFFFF 
MM MM 600 00 NN NNNN DD DD EE FF 
MM MM 00 00 NN NNNN OD DD EE FF 
MM MM 00 00 NN NN DD DD EE FF eee 
MM MM 00 00 NN NN DD DD EE FF cece 
MM MM 000000 NN NN DDDDDDDD EEEEEEEEEE FF cece 
MM MM 000000 NN NN DDDDDDDD EEEEEEEEEE FF eee 
SSSSSSSS DDDDDDDD LL 
SSSSSSSS DDDDDDDD LL 
SS dD DD LL 
S$ DD DD LL 
DD DD LL 
DD DD LL 
SSSSSS DD DD LL 
SSSSSS dD DD LL 
SS 0D DD LL 
SS DD DD LL 
SS 0D DD LL 
SS dD 


DD LL 
SSSSSSSS DDDDDDDD LLLLLLLLLL 
SSSSSSSS DDDDDDDD LLLLLLLLLL 


/* 


/t 


/ 
/ 
/ 
/*e 
/ 
/ 
/ 
/ 
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MODULE S$cdbdef; /* Class Descriptor Block 


Version ‘V04-000' 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


rt SOF TWARE se FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF rise LICENSE AND WITH THE 
INCLUSION OF THE ABOVE Sv ygpith a NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
dy Rg a NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
OORPORAT On NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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: ABSTRACT: Data Structure Definitions 

* ENVIRONMENT: Non-executable. 
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/* 

an MODIFIED BY: 

/* v03-017 TLC1090 Thomas bs Cafarella 02-Aug-1984 15:00 
S Correct ACCVIOs in SYSTEM and PROCESSES classes. 

/* v03-016 TLC1087 Thomas L. Cafarella 25-Jul-1984 15:00 
i Default to /ALL when summarizing. 

/* v03-015 TLC1085 Thomas L. Cafarella 22-Jul-1984 14:00 
i Calculate scale values for Free and Modified List bar graphs. 
/* v03-014 TLC1072 Thomas L. Cafarella 17-Apr-1984 11:00 
. Add volume name to DISK display. 

/* v03-013 TLC1066 Thomas L. Cafarella 01-Apr-1984 11:00 
hn Add SYSTEM class. 

/* v03-012 TLC1060 Thomas L. Cafarella 19=MAR-1984 10:00 
a Make multi-file summary work for homogeneous classes. 

/* v03-011 PRS1011 aul R. Sen 29-F eb-1984 14:00 
. add /FLUSH_ INTERVAL qualifier 

/* v03-010 PRS1006 Paul R. Sen 17-F EB-1984 14:00 
. Add support for ‘ ‘computed "items 

/* v03-010 TLC1052 Thomas L. Cafarella 17-Feb-1984 11:00 
- Add multi-file summary capability. 

/* v03-009 PRS1005 Sen eral 10:00 
/* Add dis vay seuaret zt to CDB and CHD t 

. allow flexible spacing between screen iteas 

/* 

/* v03-008 TLC1051 Thomas L. Cafarella 11-Jan-1984 11:00 
Add consecutive number to class header record. 

/* v03-008 PRS1001 Paul R. Senn 27-Dec-1983 16:00 
. Add ALL classes flag to MRB 

/* v03-007 TLC1050 Thomas L. Cafarella 06-Dec-1983 11:00 
. Change directory information in DLOCK class. 

/* v03-006 TLC1048 Cafarella 11-Jun-1983 12:00 
a Remove VIC from PROCESSES displays. 

/* v03-005 1LC1042 Thomas L. Cafzrella 19-Jun-1983 15:00 
hdd /ITEM qualifier for homogeneous classes. 

/e v03-005 TLC1039 Thomas L. Cafarella 15-Jun-1983 15:00 
Me Add DECnet node name to heading. 

/* v03-005 1LC1036 Thomas L. Cafarella 10-Jun-1983 15:00 
/* Properly recognize Revision Level 0. 
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/* v03-004 TLC1035 Thomas L. Cafarella 06-Jun-1983 15:00 
: Add homogeneous class type and DISK class. 
/* v03-003 TLC1028 Thomes . Gaferette 14-Apr-1983 16:00 
. AiG nteractive user interface. 
/* v03-003 TLC1027 ones L. Cafarella 14-Apr-1983 16:00 
. Enhance file sennan th lity features. 

/* v03-001 TLCO014 Thomas L. Cafarella 01-Apr-1982 13:00 
. Correct attached processor time reporting tor MODES. 
/* v03-002 TLC1012 Thomas L. Cafarella 30-Mar-1982 13:00 
on Display user's comment string on screen Line 5. 
/* v03-001 TLC1009 Thomas L. Cafarella 29-Mar-1982 01:00 
in Get current time when other times are converted. 

* 
[to- 
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/* 
/* Define constants used to define display fypes. These codes will be stored 
. in the CDBSB_ST field in the Class Descriptor Block (CDB). 
CONSTANT (¢ 
reg_proc, /* Code for regular PROCESSES display 
topc_proc, /* Code for TOPCPU PROCESSES display 
topd_proc, /* Code for TOPDIO PROCESSES display 
topb_proc, /* Code for TOPBIO PROCESSES etagtey 
topf_proc /* Code for TOPFAULT PROCESSES display 
) EQUALS 0 INCREMENT 1 COUNTER #procdisps ; 
CONSTANT procdisps EQUALS #procdisps+1 ; 
CONSTANT (¢ 
all_stat, /* Code for ALL statistics 
cur_stat, /* Code for CURRENT statistic 
ave_stat, /* Code for AVERAGE statistic 
min_stat, /* Code for MINIMUM statistic 
max_stat /* Code for MAXIMUM statistic 
) EQUALS 0 INCREMENT 1 COUNTER #stats ; 
CONSTANT stats EQUALS #stats+1 ; 
/* 
/* Define Class Descriptor Block offsets. There is a Class Descriptor 
. Block for each class of performance data. 
AGGREGATE cdb STRUCTURE PREFIX cdb$ ; /* Class Descriptor Block 
faoctr LONGWORD; /* Length of FAO control string 
faoctr ADDRESS; /* Address of FAO control string 
sumbuf LONGWORD; /* Length of multi-file summary buffer 
sumbuf ADDRESS; /« Address of multi-file summary buffer 
title ADDRESS; /* Address of title cstring 
icount LONGWORD; /* Number of items in this class (STD) 

/* Number of TOP items in PROCESSES class (non-STD) 
ecount LONGWORD; /* Number of djeptey elements in this class 
itmstr ADDRESS; /* Address of item token string (STD) 

/* Address of PROCESSES Display Descriptor (non-STD) 
blklen WORD; /* Length of a block 
precoll ADDRESS; /* Address of pre-collection routine (0 if none) 

stcoll ADDRESS; /* Address of post-collection routine (0 if none) 
uffers LONGWORD; /* Length of collection buffer block 
buffers ADDRESS; /* Address of block of collection buffers (STD) 

/* Address of block consisting of collection buffer 

/* and display buffer (non-STD) 

x ADDRESS; /* Address of C ofyens too for homog class (0 if not) 
dispctl WORD; /* Display control bit string 
min LONGWORD; /* Minimum val 


ue 
range LONGWORD ; /* Value range (max-min) 
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faoseglen BYTE; /* Length of FAO segment for data display (used by homogs) 

faoprelen BYTE; /* Length of FAO prefix for data d ~ ay tusee by homogs) 

st BYTE; /* Code for form of statistical display (Active) 

st_def BYTE; /* Default ST code 

st_cur BYTE; /* Current ST 7 

afTags STRUCTURE TAG w; /* Class qualifier flags for CDB (Active) 

percent BITFIELD LENGTH 1 MASK; . Percent = YES => User has rece all data be displayed 

as percent values. 

cpu BITFIELD LENGTH 1 MASK; /* Cpu = YES => User hes requested MODES to be displayed 
/* n CPU-specific format 

et BITFIELD LENGTH 16-*; /* Fill out remainder of word 

ags; 
aflags.de WORD; /* Default class qualifier flags 
Gf oes cur ORD; /* Current class qualifier flags 
lags STRUCTURE TAG L; /* Flags for cdb 

ctpres BITFIELD LENGTH 1 MASK; /* YES => this class has at least one count item 

swapbuf BITFIELD LENGTH 1 MASK; /* Swap buffers bit is flip-flopped 

uniform BITFIELD LENGTH 1 MASK; /* Uniform can be YES or N 
/* Uniform = YES => This class is strictly made up of items 
rag ag be expressed as percentages of 

a whole. 

cpu_comb BITFIELD LENGTH 1 MASK; /* YES => combine collected items for display 

std BITFIELD LENGTH 1 MASK; /* /* YES => this is a standard class 

homo BITFIELD LENGTH 1 MASK; /* YES => this standard class is homogeneous 

diskac BITFIELD LENGTH 1 SK; /* YES => this is the disk class with allocation class names 

diskvyn BITFIELD LENGTH 1 MASK; /* YES => this is the disk class with volume names 

syscls BITFIELD LENGTH 1 MASK; /* YES => this is the special SYSTEM class 

disable BITFIELD LENGTH 1 MASK; /* YES => Do not allow this class to be requested 

kunits BITFIELD LENGTH 1 MASK; /* YES => Bar graph headings displayed in K units 

wide BITFIELD LENGTH 1 SK; /* YES => Special wide screen display used by DISK 

explic BITFIELD LENGTH 1 MASK; /* YES => Class qualifier specified explicitly 

sia ter BITFIELD LENGTH 32-*;  /* Fill out remainder of longword 

ags; 

chdhdr . ADDRESS; /* Address of CHange Descriptors header 

@cdbsize = .; /* Size of cdb 

END cdb; 

CONSTANT size EQUALS #cdbsize PREFIX cdb$ ; /* Declare constant for cdb size 


END_MODULE $cdbdef; 
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MODULE Scdxdef; 
/t 


/* This structure is an 


. homogeneous classes. 


AGGREGATE cdb_ext 


selidtable 
egy 
rev 
Flooktab 
dispnam 
dispfao 


#cdxsize = .; 
END cdb_ext; 


CONSTANT size 


END_MODULE $cdxdef; 


4 
16-SEP-1984 16:42:00.18 Page 6 


/* Class De 
extension to the CDB for 


STRUCTURE PREFIX cdx$ ; /* 
BITFIELD LENGTH 16 TAG w; is 


WORD; 
WORD; /* 
BYTE; /* 
BYTE: /* 
BYTE: /* 
BYTE; /* 
RD: /* 
ADDRESS: /* 
ADDRESS: /* 
GWORD; /* 
ADDRESS; /* 
GWORD; /e 
GWORD: /* 
ADDRESS; /* 
ADDRESS: /* 
ADDRESS: i 
® 


EQUALS #cdxsize PREFIX cdx$ ; 


scriptor Block Extension 


CDB Extension 


* Retive 3 es 2 bit te. a bit is set, the item 
geo W bit- cake? has been requested 


* Default ites ne ts. See above. 


Current item bits. See above. 

Number 4 | tems Ro ae or display 
Consecutive number of current display item 
Item index of current display item 

Length of an element 

Cumulative element — for this MONITOR request 
Elesent ID Table addres 

STATS Control Block Table aceress 

Super Element ID Table Length 

Super Element ID Table address 

Count of elements to display this time 
Count of elements displayed Last time 
Address of item aexyery —- table 
Address of rtn tod i ay el nent names 
Address of FAO control string for elt names 
Size of CDX 


/* Constant for CDX size 
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BOOULE Schddef; /* CHange Descriptor 


/* Define CHange Descriptor (CHD) offsets. There is one CHD for each change 
/* to the the item structure of a class (and one for the original state). 
/* The CHDs for_a given class are contiguous and sange ately follow the 
/* CHD Header. The CHD Header is a single byte containing f e current 

/* Revision Level for the class. Following the CHD Header a number 

/* of CHDs equal to the Revision Level + 1. Revision Level 0 represents 
/* the original state of the item structure. 
/* The COB contains a pointer to the CHD Header. Each CHD defines a new 
/* Revision Level for the class. A class with one CHD is at Rev Level 0, 
. a class with two CHDs is at Rev Level 1, etc. 

& 


AGGREGATE chd STRUCTURE PREFIX chd$ ; /* CHange Descriptor 
icount LONGWORD; /* Number of items in this class (STD) 
/* Number of items for TOPs (PROCESSES class) (non-STD) 
itmstr ADDRESS; /* Address of item token string (STD) 
/* Address of PDD (PROCESSES class) (non-STD) 
blklen WORD; /* Block pent (STD HETEROGENEOUS) 
/* Data block length (PROCESSES class & STD HOMOGENEOUS) 
elidlen BYTE; /* Element ID Length (STD HOMOGENEOUS) 


dispctl WORD; /* ejsetay control bit string 
#chdsize = .; /* Size of CHD 
END chd; 

CONSTANT size EQUALS #chdsize PREFIX chd$ ; /* Constant for CHD size 


END_MODULE $chddef; 
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, 


Yee Sidbdef; /* Item Descriptor Block 


/* Define Item Descriptor Block (IDB) offsets. There is one Item Descriptor 
/* Block for each unique data item. Generally, a data item is defined for 
/* only one class, although there are some instances of data items which 

- are defined for several classes (Page Fault Rate, for example). 


AGGREGATE idb STRUCTURE PREFIX idb$ ; /* Item Descriptor B ock 
sname ADDRESS; /* Address of short name cstring 
Lname ADDRESS; /* Address of long name cstring 
isize WORD; /* Code indicating size of data item 
type WORD; /* Code indicating ayes of data item 
/* NOTE == Size and 


“pe codes are defined 
module MONDAT.MAR 


n 
addr ADDRESS; /* Address of data item (initialized 2 
BLDIDB macros in module MONDAT.MAR) 


flags STRUCTURE TAG b; /* Flags for IDB 
pcn BITFIELD LENGTH 1 MASK; /* YES => computed percentage item 
filler BITFIELD LENGTH 8=-*; /* Fill out remainder of byte 
END flags; 
#idbsize = .; /* Size of IDB 
END idb; 
CONSTANT ilength EQUALS #idbsize PREFIX idb$ ; /* Constant for IDB size 


END_MODULE Sidbdef; 
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MODULE Smrbdef; 
/t 


/* 


/* Block for each monitor request 
one MONITOR subcommand invocation. 


/ 


* 
/* 


AGGREGATE mrb STRUCTURE PREFIX mrb$ ; 
beginning QUADWORD; 
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/* Monitor Request Block 


Define Monitor Request Block (MRB) offsets. There is one Monitor Request 
A monitor request is defined as 


/* Monitor Request Block 


WORD; /* peg inning time of request in system time units 
ending UADWORD; /* Ending time of request in system time units 
interval LONGWORD ; /* Interval value in seconds 
us LONGWORD; /* Flush sneerve) in seconds 
viewing _time LONGWORD; /* Viewing *ime for a screen in seconds 
input ADDRESS; /* Address of input file descr (0 if input not requested) 
display ADDRESS; /* Address of display file descr (0 if display not requested) 
record ADDRESS; /* Address of record file descriptor (0 if record not requested) 
summar ADDRESS; /* Address of summary file descriptor (0 if summary not requested) 
commen ADDRESS; /* Address of comment string descriptor 
classct WORD; /* Count of classes requested 
classbits OCTAWORD UNSIGNED; /* Bit string of npqvestes classes 
inp_files YTE; /* Count of ay files specified 
flags STRUCTURE TAG w: /* Flags for MRB 
display BITFIELD LENGTH 1 MASK; /* YES => user requested /DISPLAY 
record BITFIELD LENGTH 1 MASK; /* YES => user requested /RECORD 
summary BITFIELD LENGTH 1 MASK; /* YES => user requested /SUMMARY 
playback BITFIELD LENGTH 1 MASK; /* YES => user requested /INPUT 
inde fend BITFIELD LENGTH 1 MASK; /* YES => ending time is indefinite 
disp_to_file BITFIELD LENGTH 1 MASK; /* YES => user specified a filename on /DISPLAY 
np_cl_req BITFIELD LENGTH 1 MASK; /* YES => input cleanup required 
rec_cl_req BITFIELD LENGTH 1 MASK; /* YES => record cleanup required 
dis_cl_req BITFIELD LENGTH 1 MASK; /* YES => display cleanup required 
sum_cl_req BITFIELD LENGTH 1 MASK; /* YES => summary cleanup required 
all_class BITFIELD LENGTH 1 MASK; /* YES => ALL classes requested 
mfsum BITFIELD LENGTH 1 MASK; /* YES => multi-file summary requested 
by_node BITFIELD LENGTH 1 MASK; /* YES => m.f. summary by node requested 
syscls BITFIELD LENGTH 1 MASK; /* YES => SYSTEM class is oot monitored 
proc_req BITFIELD LENGTH 1 MASK; /* YES => PROCESSES class explicitly requested 
filler BITFIELD LENGTH 16-*; /* Fill out rest of word 
END flags; 
@mrbsize = .; /* Size of mrb 


END mrb; 
CONSTANT size 
END_MODULE Smrbdef; 


EQUALS #mrbsize 


PREFIX mrb$ ; /* Constant for mrb size 


CO 
VO 
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BODULE Smcadef; 


/* 


/* structure 


/* 
/* 


——s mca 
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/* Monitor Communication Area 


This “‘structure’’ consists of unrelated variables used by the various 
/* routines of the MONITOR utility. They have been placed in 

or ease of reference across separately compiled PL/I 

and MACRO-32 modules. 


a based 


STRUCTURE PREFIX mca$ ; /* Monitor Communication Area 
nput_len LONGWORD; /* Length of current input file record 
inout ptr ADDRESS; /* Address of current input file record 
intticks LONGWORD; /* Interval calculation (in 10ms ticks) 
collcnt LONGWORD; /* Count of collections completed 
dispcnt LONGWORD; /* Count of displays completed 
int_mult LONGWORD; /* Interval multiple (For playback, # of intervals 
/* ... to advance before recording or eiopiey ine? 
proc disp LONGWORD; /* Number of processes tc display (PROCESSES class) 
mpaddr nveRESs; /* Address of MP (multiprocessing) code 
curr_time QUACWORD; /* Current time in system time units 
Lastcoll QUADWORD; /* Time stamp of Latest collection 
firstc BYTE; /* Class number of first requested class 
Lastc BYTE; /* Class number of Last requested class 
flags STRUCTURE TAG w; /* Flags 
“entry" BITFIELD LENGTH 1; /* v7e* of entry -- can be COMMAND or UTILITY 
future BITFIELD LENGTH 1; /* YES => monitor request begins in future 
mult fnd BITFIELD LENGTH 1; /* Muitipte found can be YES or NO 
eof BITFIELD LENGTH 1; /* YES => EOF (end-of-file) on /INPUT file 
video BITFIELD LENGTH 1; /* YES => Display terminal is a video device 
graphics BITFIELD LENGTH 1; /* YES => Display terminal is a VT 
era_scrl BITFIELD LENGTH 1; /* YES => PROCESSES eeren 3 'ng region must be erased 
top_disp BITFIELD LENGTH 1; /* YES => At least one TOP display event has occured 
refresh BITFIELD LENGTH 1; /* YES => Screen refresh request received (CTRL-R, CTRL-w) 
s_top_disp BITFIELD LENGTH 1; /* YES => At least one SYSTEM (top) display event has occured 
Filler BITFIELD LENGTH 16-*; /®* Fill out rest of word 
ags; 
consec. rec LONGWORD; /* Consecutive number for recorded collection events 
dclassct WORD; /* Count of requested classes being displayed 
zones ee = .3 /* Size of MCA 
mca; 


CONSTANT size 
END_MODULE Smcadef; 


EQUALS #mcasize PREFIX mca$ ; /* Constant for MCA size 


CO 
V 


— is es 
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<o- 


MODULE Snbpdef; /* Monitor Buffer Pointers } 
/* This structure consists of ten pointers to MONITOR collection and } 
/* statistics buffers. The pointers themselves are located at the 1 
/* beginning of a block of space consisting of the pointers followed 1 
; immediately by the buffers. 1 
/* For the non-standard class PROCESSES (regular display), there are } 
only 3 buffers: 1 
& 

/* Buffera, which is the collection buffer 
/* Buffist, «» ‘ch is the Ist collection buffer, and 
. Pr_faostk, hich is the display (FAO stack) buffer. 
/* For the non-st. Jard class PROCESSES (TOP Stepley). there are the 
. three buffers above, plus 5 buffers used to do TOP calculations. 
AGGREGATE mbp STRUCTURE PREFIX mbp$ ; /* Monitor Buffer Pointers 

buffera ADDRESS; /* Pointer to collection buffer A 

buf ferb ADDRESS; /* Pointer to collection buffer B 

/* The above two pointers may not be moved !! 

stats ADDRESS; /* Pointer to statistics buffer 

min ADDRESS; /* Pointer to buffer containing min values 

max ADDRESS; /* Pointer to buffer containing max values 

sum ADDRESS; /* Pointer to sum buffer 

pcstats ADDRESS; /* Pointer to percent statistics buffer 

cmin ADDRESS; /* Pointer to buff with min percent values 

pcmax ADDRESS; /* Pointer to buff with max percent values 

a ADDRESS; /* Pointer to percent sum buffer 

bpsize = .; /* Size of MBP 
ND mbp; 


CONSTANT size 


AGGREGATE mbp2 STRUCTURE PREFIX mbp$ ; 
buf f ADDRESS; 


a RESS; 
buf fist ADDRESS; 
data ADDRESS; 
diff ADDRESS; 
order ADDRESS; 
pid ADDRESS; 
addr ADDRESS; 
END mbp2; 

AGGREGATE mbp3 STRUCTURE PREFIX mbp$ ; 
ba ADDRESS; 
bist ADDRESS; 

r_faostk ADDRESS; 
NB mbp3; 


END_MODULE Smbpdef; 


EQUALS #mbpsize PREFIX mbp$ ; /* Constant for MBP size 


Monitor 


Pointer t 


Pointer 
Pointer 
Pointer 
Pointer 
Pointer 
Pointer 


Monitor 
Pointer 
Pointer 
Pointer 


Buffer Pointers for PROCESSES/TOP class 
collection buffer 

to Ist collection buffer of MONITOR request 
to DATA array 

to DIFF array 

to ORDER array 

to PID array 

to ADDR array 


Buffer Pointers for PROCESSES (REG) class 
to collection buffer 

to Ist collection buffer of MONITOR request 
to PROCESSES FAO stack 
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RODULE $scbdef; /* STATS Control Block 


te This structure maintains information about ferresponding elements 

/* in the Element ID Table. The ELenent D Table contains information 

/* spout each element 0-8 each disk) in a homogeneous class 9-9 DISK). 
/* The information is as ring of characters for each element whic 

/* serve to identify the element. 


AGGREGATE stats_block STRUCTURE PREFIX scb$ ; /* STATS Control Block 


dbidx /* Pikes block index into PREVIOUS collection buffer 

flags eTRUeT TURE TAG b; /* 

current BITFIELD LENGTH 1; /* Thee corres rerna § element in the Element ID Table 
/* ... was co during the most recent interval 

active BITFIELD LENGTH 1; /* The corres ond "8 q.enent in the Element ID Table 
/* ... 18 actively 4 vee collected 

filler BITFIELD LENGTH 8-*; /* Fill out rest o 

END flags; 

#scbsize = /* Size of SCB 

END stats “block; 

CONSTANT size EQUALS #scbsize PREFIX scb$ ; /* Constant for SCB size 


END_MODULE $scbdef; 


| 
1 
} 
1 
1 
1 
1 
1 
1 
é 
é 
é 
é 
é 
g 
g 
5 
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FOAL Stmidef; /* Temporary storage for FILL_HOMOG_STATS 
/* This structure consists of definitions for temporary storage 
. used by the FILL_HOMOG_STATS routine. 


AGGREGATE temp_i_block STRUCTURE PREFIX tmp$ ; /* Monitor Buffer Pointers 


dbct LONGWORD; /* Data block count 

dblen LONGWORD; /* Data block length 

elidct LONGWORD; /* Number of element ID table elements 
dbidx LONGWORD; /* Data block index 

found BYTE; /« “element found’’ indicator 

#tmisize =. /* Size of M1 


END temp.1_block; 
CONSTANT size EQUALS #tmisize PREFIX tmp$ ; /* Constant for TM1 size 
END_MODULE Stmidef; 

“one Stm2def; /* Temporary storage for FILL_MFSUM_FAOSTK 
/* This structure consists of definitions for temporary storage 
S used by the FILL_MFSUM_FAOSTK routine. 


AGGREGATE temp_2_block STRUCTURE PREFIX tm2$ ; /* Temporary storage 


start_col LONGWORD; /* Starting column number 
cols LONGWORD; /* Number of columns to ihe | in summary report 
col_size LONGWORD ; /* Number of longwords in a column 
cols_used LONGWORD ; /* Number of columns used 
seconds LONGWORD; /* Number of seconds 
colls LONGWORD; /* Number of collections 
elems LONGWORD ; /* Count of elements to display for current class 
item_type WORD; /* Item type 
#tm2size = .; /* Size of TM2 
END temp_2_block; 
CONSTANT size EQUALS #tm2size PREFIX tm2$ ; /* Constant for TM2 size 


END_MODULE S$tm2def; 


§ 
5 
§ 
§ 
§ 
§ 
§ 
5 
5 
§ 
‘ 
§ 
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§ 
§ 
§ 
‘ 
‘ 
: 
| 
§ 
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‘ 
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( 
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§ 
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BODULE Stm3def; /* Temporary storage for FILL_HOM_SUMMBUFF 
/* This structure consists of definitions for temporary storage 
- used by the FILL_HOM_SUMMBUFF routine. 


AGGREGATE temp_3_block STRUCTURE PREFIX tm3$ ; /* Temporary storage 


inpidx LONGWORD; /* Index into elt ID table for curr elt 

sup idx LONGWORD; /* Index into Super elt id table for curr elt 

items LONGWORD; /* Number of items requested 

sbcol ADDRESS; /* Addr of portion of summary buffer for curr column 
sblen LONGWORD; /* Length of portion of summary buffer for one item 
found BYTE; /* Element foyne indicator (lbs means ‘'found’’) 
#tm3size =. /* Size of TM 


END temp_3_block; 
CONSTANT size EQUALS #tm3size PREFIX tm3$ ; /* Constant for TM3 size 
END_MODULE Stm3def; 
as Stmédef; /* Temporary storage for FILL_DISP_BUFF 
/* This structure consists of definitions for temporary storage 
/* used by the FILL_DISP_BUFF routine. 


AGGREGATE temp_4_block STRUCTURE PREFIX tm4$ ; /* Temporary storage 


ecount LONGWORD; /* Count of elements to pha + 
itmstr ADDRESS; /* Address of display item string 
buffers ADDRESS; /* Address of MBP (buffer block) 
fltsecs LONGWORD; /* Floating getat count of seconds 
#tm4size = .; /* Size of TM4 
END temp_4_block; 

CONSTANT size EQUALS #tm4size PREFIX tm4$ ; /* Constant for TM4 size 


END_MODULE S$tm4def; 
AS Sifbdef; /* Input File Block 


/* This structure contains information about an input file 
. used for a multi-file summary. 


CONSTANT size EQUALS #ifbsize PREFIX ifb$ ; /* Constant for IFB size 


AGGREGATE ifb STRUCTURE PREFIX ifb$ BASED ifbptr; /* Input File Block 
input ADDRESS; /* Address of input filename string descriptor 
col_no YTE; /* Column no. (l-origin) which includes data from this file 
gisbe ize 2.3 /* Size of Input File Block 
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ENC MODULE Sifbdef; 
POOULE Scsbdef; /* Column Summary Block 


fe This structure conte 


ins information about a single column 
fo of data in a multi-fil 


e summary report. 


AGGREGATE csb ——s encete csb$ BASED caters /* Column Summary Block 
nodename RACTER LENGTH 16; Node name of data source node for this column 


END_MODULE $csbdef; 


ne} tag GUADUORD: pe Be — time of this column’ s data in system time units 
ending QUA D; /* Ending time of this column's data in system time units 
flags STRUCTURE TAG b /* Flags 

ignore BITFIELD LENGTH 1 /* YES => ignore this column 

fitter BITFIELD LENGTH g-*; ; /* Fill out rest of byte 

ags; 

files . BYTE; /* Number of files included in this column 

#csbsize 2 3 /* Size of Column Summary Block 

END csb; 
CONSTANT size EQUALS #csbsize PREFIX csb$ ; /* Constant for CSB size 
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BOOULE Smfsdef; /* Multi-File Summary Block 


/* This structure contains information about a Multi-File 
ve Summary request. There is one MFS per MONITOR request. 


WORD UNSIGNED; Bit str 


END_MODULE Smfsdef; 
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AGGREGATE mfs STRUCTURE PREFIX mfs$ BASED mfsptr; /* +5 Lng Summary Block 
classbits OCTA : /* ng of request d classes 


or current class 


nent} pa QUADWORE ; /* Requested beginning time 
en ing QUADWORD; /* Requested ending f me 
statsbuf LONGWORD ; /* Length of statistics buffer (for TOT 
statsbuf ADDRESS; /* Address of statistics buffer (for TO 
ifb_tab ADDRESS; /* Address of IFB Table 
summary ADDRESS; /* Address of summary file descriptor 
elems LONGWORD; /* Count of elements to displa 
lwords LONGWORD ; /* Count of longwords on FAOST 
classct WORD; /* Count of requested classes 
columns BYTE; /* Count of columns in summary report 
cur_col BYTE; /* Number of column currently being processed 
data_cols BYTE; /* Number of columns with data (as opposed to blank) 
fmfssize = .; /* Size of Multi-File Summary Block 
END mfs; 
CONSTANT size EQUALS #mfssize PREFIX mfs$ ; /* Constant for MFS size 
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AL Smondef ; /* Monitor Recording File Definitions 
/* These definitions describe data items in MONITOR Recording File records 
/* The record types include: recording file header record. system information 
/* record, class header portion of class record and prefix portion of 
is PROCESSES class record. 
/* NOTE == The recording file header record and the system information record 
/* require Fret offset "The dein € sehen ee for any fields added after 
/* the ey l Agios not h 90 9° the sysbol appears as a 
/* CONST ust before the f tig definition itself. Then, in any code 
/* Sasoneel to the field, the offset should be compared a against. the 
/* the actual size of the record to determine whether the f 
/* present in the record. This technique allows any MONITOR image” 
. to process any recording file, regardless of its structure level. 
#naxcomlen = 60; /* Max Length of user comment stri ng 
#faosize = 4*16; /* Number of bytes for FAO stack (display purters 
/* for a single process (PROCESSES class) 
AGGREGATE file_hdr STRUCTURE ted mnr ners /* Monitor File Header Record 
type BITFIELD LENGT H 8 TAG b is ,ynsigned record type 
flags STRUCTURE TAG Fla aps 
pals or BITFIELD LENGTH * 3208; : /s Fill out rest of longword 
ags; 
beginning QUADWORD; /* Be pas time of request in system time units 
ending QUADWORD; /* Ending time of request in system time units 
interval LONGWORD; /* Interval value in seconds 
revOclsbits OCTAWORD UNSIGNED; /* Bit string of recorded classes which are at rev 
/* NOTE == The above item is included for sree ast with 
/* MONITOR structure levels MO — and M 
recct LONGWO: /* Count of all records in the file (incl header 
level CH RARACTER LENGTH 8; /* MONITOR Recording File structure level Meee ticacten 
comment CHARACTER LENGTH #maxcomlen; /* User comment string 
comlen WORD; /* Actual Length of user comment string 
CONSTANT classbits EQUALS .; 
classbits OCTAWORD ry hy /* Bit string of recorded classes 
C ANT Sha poe 
revlevels CHARACTER LENGTH 136; /* Rev level for each recorded class 
@fihsize = .; /* Size of file header 


END file_hdr; 


CONSTANT size EQUALS #flhsize PREFIX mnr_hdr$ ; /* Constant for file header size 


CONSTANT maxcomlen EQUALS #maxcomlen PREFIX mar_ hdr ; /* Constant for user comment string size 
AGGREGATE sys_info STRUCTURE PREFIX mnr -Syvif /* Monitor Syaves Information Record 
«Contains VAX/VMS system info about the monitored system 
type BITFIELD ae 8 TAG b; /* Unsigned record type 
flags STRUCTURE TAG w; /* Flags 
clusmem BITFIEL UD LENGTH 1; /* YES => this node js a member of a cluster 
reserved! BITFIELD LENGTH 1; /* peserves §8 o} ote 
/* For MONO8001 (V4FT1), was used as DIRNODE, where 
/* YES => this node is a Lock mgr directory node 
filler BITFIELD LENGTH 16-*; /* Fill out rest of word 
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END flags; 
boottime QUADWORD; /* Absolute system boot time in system time units 
maxprcct WORD; /* MAXPROCESSCNT SYSGEN parameter 
mpcpus E; /* Number of multiprocessing CPUs 
CONSTANT nodename EQUALS .; 
nodename CHARACTER LENGTH 16; /* DECnet node name of data source node 
ONSTANT balsetmem EQUALS .; 


balsetmem GuORD; 
CONSTANT mowhilim EQUALS .; 


CONSTANT cputyre EQUALS .; 
LONGUORD; ‘4 


/* Balance set memory (in pages) 


mowhilim /* Modified Page List high Limit (in pages) 


cputype /* CPU type code (in binary) 
aby \size e .3 /* Size tf sys info record” 
END sys_info; 
CONSTANT size EQUALS #syisize PREFIX mnr_syi$ ; /* Constant for sys info record size 


sentient class_hdr STRUCTURE PREFIX wor ates 3 /* Monitor Class Record Header 
pe : 


{ Unsigned record type 
t ags STRUCTURE TAG w; /* Flags 
con BITFIELD LENGTH 1; /* The data for this interval continues in next record 
filler BITFIELD LENGTH 16-*; /* Fill out rest of word 
ags; 
stamp QUADWORD; /* System time of collection 
reserved WORD; L 


/* Reserved to DIGITA 
@clhsize = .; /* Size of class header 


END class_hdr; 
CONSTANT hsize EQUALS @clhsize PREFIX mnr_cls$ ; /* Constant for class header size 


AGGREGATE hom_class_pre STRUCTURE PREFIX mnr_hom$ ; /* Homogeneous Class Prefix 
eltct LONGWORD; /* Count of elements in this record 
reserved LONGWORD; /* Reserved to DIGITAL 
#hpfsize = .; /* Size of homog class prefix 

hom_class_pre; 


CONSTANT psize EQUALS #hpfsize PREFIX mnr_hom$ ; /* Constant for homog class prefix size 


AGGREGATE pro_class_pre STRUCTURE PREFIX mnr_pro$ ; /* PROCESSES Class Prefix 
pctrec LONGWORD ; /* Count of processes in this record 
pctint LONGWORD; /* Count of processes for this interval 
#ppfsize = .; /* Size of PROCESSES prefix 

END pro_class_pre; 


CONSTANT psize EQUALS #ppfsize PREFIX mnr_pro$ ; /* Constant for PROCESSES prefix size 


/* PROCESSES Class Data Block. This structure defines the offsets for items in the 
/* data block for the (non-standard) PROCESSES class. New items may be added only 

/* to the end of the existing structure. Furthermore, any item item annexed must 

/* be checked for its presence when precgesing an inoyt recording file. That is, 

/* compare the offset value for the new item to the size of the data block being 

/* examined; if the offset value is bess Face the data block size. the item is 

/* present in the input file, otherw se, it is not. Whenever an item is added ; 

/* new Revision Level is defined for the PROCESSES class. Insert a symbol defin ng 
the boundary of the revision level, and add a CHD macro in MONDAT.MAR referencing 


ge 
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. the boundary symbol (which effectively defines the new data block size). 


AGGREGATE process_class STRUCTURE PREFIX mnr_pro$ ; /* PROCESSES Class Data Block 
ipid LONGWORD; * Internal Pid 


; / 
ole LONGWORD; /* 
state WORD; /* 
e BYTE; /* 

name OCTAWORD; /* 
gpgcnt ; /* 
ppgent WORD; /* 
ts LONGWORD; . 
diocnt LONGWORD; /* 
pagefits LONGWORD; /* 
cputim LONGWORD; /* 
biocnt LONGWORD; /* 
CONSTANT revOdsize EQUALS . ; /* 

epid WORD; /* 
efwm LONGWORD; /* 
CONSTANT revidsize EQUALS . ; /* 

/* 


apaese S .3 
END process_class; 


CONSTANT dsize EQUALS #pdbsize PREFIX mnr_pro$ 
CONSTANT fsize EQUALS #faosize PREFIX mnr_pro$ 


na au 
UIC (Member is low-order word) 
State value 
Priority (negative value) 
Process name (counted string) 
Global page count 
Process page count 
PCB Status wig 

(PCBSV_RES bit clear => swapped out) 

Dire t 170 count 
Page fault count 
Accumulated CPU time (in ticks) 
Buffered 1/0 ee: 
Revision Level 0 boundary 


Extended PID 
Event ae wait mask (for MWAITs) 
Revision Level 1 boundary 


Size of process data block 


; /* Constant for process data block size 
; /* Constant for FAOSTK (display buffer) size 


AGGREGATE qualifier_desc STRUCTURE PREFIX qual$ BASED yatetes /* Qualifier Descriptors 
beg LONGWORD; /* /BEGINNING qualifier Length 
beg ADDRESS; /* /BEGINNING qualifier address 
end’’ LONGWORD ; /* /ENDING qualifier Length 
“end ADDRESS; /* SENDING qualifier address 
int LONGWORD; /* /INTERVAL qualifier Length 
int ADDRESS; /* /INTERVAL Gua) Stier address 
flush LONGWORD; /* /FLUSH_INTERVAL qualifier Length 
flush ADDRESS; /* /FLUSH_ INTERVAL qualifier address 
view LONGWORD; /* /VIEWING_TIME qualifier Lengt 
view ADDRESS; /* /VIEWING_TIME qualifier address 
inp GWORD; /* /INPUT qualifier Len 
inp ADDRESS; /« /INPUT qualifier address 
disp WORD; /* /DISPLAY qualifier Length 
disp ADDRESS /* /DISPLAY que} jt ter address 
rec GwoRD; /* /RECORD qualifier length 
rec ADDRESS; /* /RECORD qualifier address 
Summ GWORD; /* /SUMMARY qualifier length 
summ ADDRESS /* /SUMMARY qualifier address 
comm GWORD ; /* /COMMENT qualifier length 
comm ADDRESS /* /COMMENT qualifier address 
by_node GWORD ; /* /BY_NODE qualifier length 
by_node ADDRESS /* /BY_NODE th er address 
class ONGWORD; /* CLASS_NAME parameter Length 
class ADDRESS; /* CLASS_NAM pereneter address 
all LONGWORD; /* /ALL Gualifier Length 
all ADDRESS; /* /ALL qualifier address 
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MONDEF .SDL;1 
cur LONGWORD; /* /CURRENT qualifier Length 
cur ADDRESS: /* /CURRENT qualifier address 11 
ave ONGWORD; /* /AVERAGE qualifier Length 14 
ave ADDRESS; /x /AVERAGE qualifier address 1 
min ONGWORD; /* /MINIMUM qualifier Length. 14 
min ADDRESS; /* /MINIMUM qualifier address iB 
max ONGWORD; / /MAXIMUM qualifier Length 1 
max ADDRESS; /* /MAXIMUM qual itier address ie 
topc ONGWORD; /* /TOPCPU qualifier length 11 
topc ADDRESS; /* /TOPCPU qualifier address 11 
topd ONGWORD; /* /TOPDIO qualifier Length 11 
topd ADDRESS; /* /TOPDIO qualifier address 1 
topb ONGWORD; /* /TOPBIO qualifier Length 11 
topb ADDRESS; /* /TOPBIO qualifier address 11 
topf GWORD; /* /TOPFAULT qualifier Length 11 
topf ADDRESS; /* /TOPFAULT qualifier address 12 
cpu GWORD; /* /CPU qualifier Length l¢ 
cpu ADDRESS; /x /CPU qualifier address 1¢ 
pcent GWORD; /* /PERCENT qualifier Length 1¢ 
pcent ADDRESS; /* /PERCENT qualifier address 1é¢ 
item LONGWORD; /x /ITEM qualifier Length 12 
item ADDRESS; /« /ITEM qualifier address § 
fads ize =: /* Size of Qualifier Descriptors 1 
END qualifier_desc; is 
AGGREGATE def_desc STRUCTURE PREFIX def$ BASED Sofpers /* Default Qualifier Value Descriptors 1é 
rec LONGWORD; /* /RECORD qualifier default value length le 
rec ADDRESS; /x /RECORD qualifier default value address l¢ 
disp LONGWORD; /* /DISPLAY qualifier default value length 12 
disp ADDRESS; /* /DISPLAY qualifier default value address 12 
summ LONGWORD; /* /SUMMARY qualifier default value length 12 
Summ DDRESS; /« /SUMMARY qualifier default value address 12 
#ddsize = .; /* Size of Qualifie 12 
END def_desc; \$ 
END_MODULE $mondef; \$ 
12 


r Default Descriptors 
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